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--File: WESelection.mesa 
--Edited by: 

Sandman April 21. 1978 11:55 AM 

Barbara July 24, 1978 3:55 PM 

DIRECTORY 

AltoFileDefs: FROM "altof iledef s" USING [FA], 
RectangleDefs: FROM "rectangledef s" USING [ 

ComputeCharWidth, FAptr, leftmargin, xCoord, yCoord], 
StreamDefs: FROM "streamdefs" USING [ 

GetFA, Grindex, JumpToFA, Modifylndex, Setlndex, StreamError] , 
WindExDefs: FROM "windexdefs" USING [ 

AMouseButton, GetKeySet, GetMouseButton, MenuSelect, NullProc, 

WEDataHandle, xcursorloc, ycursorloc], 
WindowDefs: FROM "windowdefs" USING [ 

GetLineTable, MakeSelection , Resol veBugToPosition, Selection, Streamlndex, 

Window/Handle] ; 

DEFINITIONS FROM StreamDefs, WindowDefs, RectangleDefs. WindExDefs; 

WESelection: PROGRAM [WEState: WEDataHandle] 

IMPORTS WindowDefs, StreamDefs, RectangleDefs, WindExDefs 

EXPORTS WindExDefs 

SHARES StreamDefs, WindExDefs - 

BEGIN 

OPEN WEState; 

CR: CHARACTER » 15C; 
Space: CHARACTER » 40C; 

Finder: TYPE « PROCEDURE [ 

w: WindowHandle, sel : POINTER TO Selection, x: xCoord, y: yCoord]; 

FindTheChar: Finder « 
BEGIN 

width: INTEGER; 
[sel . lef tl ine, sel.leftx, width, sel , lef tindex] 

*- Resol veBugToPosition[w, x, y]; 
sel . right! ine <- sel . left! ine; 
sel . rightindex <- sel . lef tindex; 
sel.rightx <- sel.leftx + width; 
END; 

TextSelect: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] ■ 
BEGIN 

Select[w, X, y, FindTheChar, Red]; 
END; 

WordSelect: PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord] « 
BEGIN 

Select[w, X, y, FindTheWord. Yellow]; 
END; 

Select: PROCEDURE [ 

w: WindowHandle. x: xCoord, y: yCoord, find: Finder, button: AMouseButton] « 

BEGIN 

-- Declare Locals 

selection: Selection; 

exselection: Selection; 

sel: POINTER TO Selection ♦- ©selection; 

exsel : POINTER TO Selection <- ©exselection; 

fa: AltoFileDefs. FA; 

IF w.file = NIL THEN RETURN; 
GetFA[w.file. @fa]; 
f ind[w, sel , x, y] ; 
MakeSelection[w, sel]; 

check for extensions 
WHILE GetMouseButton[] « button DO 

IF X /ff xcursorloct+cxa OR y j?^ ycursorloct+cya THEN 

BEGIN 

x ♦- xcursorloct; y ^ ycursorloct; 

f ind[w, exsel , x, y] ; 

IF Grlndex[sel . leftindex, exsel . lef tindex] THEN 
BEGIN 
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exsel.rightx ♦- sel.rightx; 
exsel . right! ine ^ sel . right! ine; 
exse! . rightindex ♦- se! . rightindex; 
END; 
IF Grlndex[exse! .rightindex, se! . rightindex] THEN 
BEGIN 

exse!.!eftx <- se!.!eftx; 
exse! .!eft! ine ♦- se! . !ef t! ine; 
exse! .!ef tindex <- se! . !ef tindex; 
END; 
IF w.se!ection H exse!t THEN MakeSe!0ct ion[w, exse!]; 
END; 
ENDLOOP; 
JumpToFA[w.fi!e, @fa]; 
RETURN 
END; 

FindTheWord: Finder ■ 
BEGIN 

char, newchar: CHARACTER; 

!inestarts: DESCRIPTOR FOR ARRAY OF Streamlndex; 
index, newindex, charindex: Streamlndex; 
pos, charpos: xCoord; 

n!ines, charline, !ine, width, charwidth: CARDINAL; 
c!ass, newc!ass: Class; 

n!ines <- (w. rectangle. ch/w. ds .! ineheight)-!; 
linestarts ♦- DESCRIPTOR[GetLineTab!e[] , n! ines] ; 

[charline, charpos, width, charindex] ^ Resol veBugToPosition[w, x, y]; 
line ^ charline - 1; -- line is first line of text in window 
Setlndex[w.f ile, charindex]; 
char <- w.f ile. get[w. file]; 
class *- CharClass[char] ; 

IF charindex « 1 inestarts[l ine] AND line = THEN pos <- leftmargin 
ELSE 
BEGIN 

IF charindex » 1 inestarts[! ine] THEN line <- line - 1; 
newindex ^ charindex; 
DO 

newindex <- ModifyIndex[newindex, -1]; 

Setlndex[w. f ile, newindex]; 

newchar <- w.f ile, get[w. file]; 

newclass <- CharC!ass[newchar]; 

IF newclass ff class THEN GOTO foundend; 

IF newindex » 1 inestarts[l ine] THEN -- ! inestarts[0] is first line 

IF line # THEN line ^ line - 1 ELSE GOTO startwindow; 
REPEAT 

startwindow ■> pos *- leftmargin; 

foundend «> 

BEGIN 

newindex ♦- ModifyIndex[newindex, 1]; 

IF newindex = 1 inestarts[l ine+1] THEN line <- !ine+l; 

Setlndex[w.fi!e, linestarts[line]]; 

pos <- leftmargin; 

FOR index ^ 1 inestarts[! ine] , ModifyIndex[index, 1] 

UNTIL index = newindex DO 

newchar <- w.f ile .get[w. file] ; 

pos ^ pos + (IF newchar « IIC THEN ComputeTabWidth[w.ds. pfont , pos] 

ELSE ComputeCharWidth[newchar , w. ds . pfont]) ; 
ENDLOOP: 
END; 
ENDLOOP; 
END; 
sel.leftx *r pos; sel.leftline ^ line+1; sel . 1 ef tindex ♦- newindex; 

line <- charline - 1; -- line is first line of text in window 

newindex <- Mod ifylndex[charindex, 1]; 

Setlndex[w, f ile , newindex]; 

pos ♦- charpos + width; 

DO 

newchar ♦- w.f ile. get[w. file I StreamError «> EXIT]; 

newclass ^ CharClass[newchar]; 

IF newclass if class THEN GOTO Foundend; 

charwidth <-- IF newchar = UC THEN ComputeTabWidth[w. ds . pfont , pos] 
ELSE ComputeCharWidth[newchar , w.ds. pfont]; 

IF line+l « nlines AND pos + charwidth >= w. rectangle . cw FHEN 
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GOTO foundend; 
IF newindex ■ 1 inestarts[1 ine+1] THEN 
BEGIN 

1 ine ^ 1 ine + i; 
pos ^ leftmargin; 
END; 
pos *- pos + charwidth; 
newindex ^ ModifyIndex[newindex, 1]; 
REPEAT 

foundend ■> newindex ^ ModifyIndex[newindex, -1]; 
ENDLOOP; 
sel.rightx *- pos; sel . right! ine ^ line+1; sel . rightindex ^ newindex; 
RETURN 
END; 

Class: TYPE « {alphanumeric, other, return}; 

CharClass: PROCEDURE [char: CHARACTER] RETURNS [Class] - 
BEGIN 
RETURN[SELECT char FROM 

IN ['a.-'z], IN [•A..'Z], IN ['0..'9] «> alphanumeric, 

CR «> return, 

ENDCASE => other] 
END; 

ComputeTabWidth: PROCEDURE [font: FAptr, x: xCoord] RETURNS [CARDINAL] 
BEGIN 

tw: CARDINAL « ComputeCharWidth[ ' .font] ♦ 8; 
RETURN[tw - LOOPHOLE[x-leftmargin. CARDINAL] MOD tw] 
END; 

CommandStuff : PUBLIC PROCEDURE [w: WindowHandle, x: xCoord, y: yCoord]- 
BEGIN 

n: CARDINAL; 

IF -useKeyset THEN RETURN; 
n ^ GetKeySet[]; 
IF w.ks # NIL THEN 
SELECT n FROM 

IN [1..26] «> w.ks.putback[w.ks, lOlB+n-1]; 

27 =»> w.ks.putback[w.ks, '+]; 

31 => w.ks.putback[w.ks, IC]; — Control A 

ENDCASE; 
END; 

-- initialization for selection module 

InitSelection: PROCEDURE » 
BEGIN 

TextProcArray[RedYellowBlue] <- NullProc; 
TextProcArray[RedBlue] ♦- NullProc; 
TextProcArray[RedYenow] *- CommandStuff; 
TextProcArray[Red] <- TextSelect; 
TextProcArray[BlueYel low] ♦- NullProc; 
TextProcArray[Blue] <~ MenuSelect; 
TextProcArray[Yel 1 ow] ♦- WordSelect; 
TextProcArray[None] <- NullProc; 
END; 

-- MAIN BODY CODE 
InitSelection[]; 

END. of weselection 



